Sub 학점반환()

    Range("E3").ClearContents

    With WorksheetFunction
    
        Range("B3").Value = .RandBetween(50, 100)
        Range("C3").Value = .RandBetween(50, 100)
        Range("D3").Value = .Average(Range("B3:C3"))

    End With

    Select Case Range("D3").Value

        Case Is >= 90
    
            Range("E3").Value = "A"
    
        Case Is >= 80
        
            Range("E3").Value = "B"
    
        Case Is >= 70
        
            Range("E3").Value = "C"
    
        Case Is >= 60
        
            Range("E3").Value = "D"
    
        Case Else
        
            Range("E3").Value = "F"
    
    End Select
    
End Sub
